Thema Datum  Von Nutzer Rating
Antwort
24.11.2015 18:22:51 Kai
NotSolved
Blau VBA -> Aktuelle Zeile
 24.11.2015 19:09:37 Gast38241
NotSolved
24.11.2015 22:05:21 Kai
NotSolved
25.11.2015 08:47:41 Gast42339
NotSolved

Ansicht des Beitrags:
Von:
Gast38241		 Datum:
24.11.2015 19:09:37		 Views:
777		 Rating:
     
Antwort:
  Ja
Thema:
VBA -> Aktuelle Zeile

Hallo!

Wenn ich das richtig verstehe, brauchst du die Zeilennummer in welcher dein Vergleich innerhalb der for each gerade ist und wahr wird.

Eine Möglichkeit wäre noch eine Variable zum Zählen zu deklarieren. Die setzt du vor der Schleife auf 1 und erhöhst sie vor dem Sprung zum nächsten Wet von cell. Damit weißt du innerhalb der for each Schleife immer in welcher Zeile du bist (du gehst ja von 1 bis 454 alle Zeilen nacheinander durch). Könnte bspw. so aussehen.

dim zaehler as integer
  .
  .
zaehler = 1

For Each cell In Range("F1:F454")
    If cell.Value >= DateAdd("d", 1, Now()) And cell.Value <= DateAdd("d", 8, Now()) Then
    intCounter = intCounter + 1
    a = cell.Rows.Count
    strNames(intCounter) = Cells(a, 1).Value
    MsgBox a
    End If

    zaehler = zaehler +1

next cell

Zwischendrin könntest du innerhalb des If - END IF mit zaehler arbeiten. Der zeigt dir die aktuelle Zeilennummer an.

Gruß Matthias

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.11.2015 18:22:51 Kai
NotSolved
Blau VBA -> Aktuelle Zeile
 24.11.2015 19:09:37 Gast38241
NotSolved
24.11.2015 22:05:21 Kai
NotSolved
25.11.2015 08:47:41 Gast42339
NotSolved